home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / comm / tcp / slip_call30b1e.lha / SLIPCall30Eng / Install_SLIPCall next >
Text File  |  1995-09-25  |  4KB  |  136 lines
  1. ;****************************************************************************;
  2. ;                                                                            ;
  3. ; $VER: SLIPCall_Installation 3.0b1e (25.9.95)                               ;
  4. ;                                                                            ;
  5. ; ⌐ 1995 Thomas Egrelius                                                     ;
  6. ;                                                                            ;
  7. ; egge@canit.se  /  thomas@fotoslide.bmc.uu.se                               ;
  8. ;                                                                            ;
  9. ;****************************************************************************;
  10.  
  11. (procedure :askdestination
  12.     (set #destination
  13.         (askdir
  14.             (prompt "Where would you like to put SLIPCall 3.0?\n"
  15.                     "A drawer will be created.")
  16.             (help   @askdir-help)
  17.             (default "SYS:")
  18.         )
  19.     )
  20. )
  21.  
  22. (procedure :checksana
  23.     (if (<> (exists "ENVARC:Sana2" (noreq)) 2)
  24.         (makedir "ENVARC:Sana2")
  25.     )
  26. )
  27.  
  28. (procedure :askdefault
  29.     (set #default
  30.         (askchoice
  31.             (prompt "Which provider do you use?")
  32.             (help   "A predefined configuration will be saved "
  33.                     "for your provider.\n\n"
  34.                     "This file (S:SLIPCall.config) will be used by SLIPCall "
  35.                     "when it's run from Workbench, or when no "
  36.                     "argument for configuration is submitted.")
  37.             (choices "CanIt" "Algonet" "ABC-Klubben" "Oden Telecom" "Uppsala Universitet" "Other provider")
  38.             (default 0)
  39.         )
  40.     )
  41. )
  42.  
  43.  
  44.  
  45. ; -------------------------------------
  46. ; main()
  47. ; -------------------------------------
  48.  
  49. (if
  50.     (= (exists "AmiTCP:" (noreq)) 0)
  51.     (message "AmiTCP is not installed!\n\nAmiTCP must be installed for\nSLIPCall to work!")
  52. )
  53.  
  54. (if
  55.     (= (exists "ZedREXX:" (noreq)) 0)
  56.     (message "ZedREXX is not installed!\n\nZedREXX must be installed for\nSLIPCall to work!")
  57. )
  58.  
  59. (complete 0)
  60.  
  61. (message "Welcome to the installation of SLIPCall 3.0e!\n\n"
  62.          "SLIPCall requires installed AmiTCP and ZedREXX.\n\n"
  63.          "Also you have to have rexxserdev.library in LIBS:.")
  64.  
  65. (:askdestination)
  66.  
  67. (makedir (tackon #destination "SLIPCall") (infos))
  68.  
  69. (copyfiles
  70.     (source "")
  71.     (dest (tackon #destination "SLIPCall"))
  72.     (pattern "~(Install#?)")
  73. )
  74.  
  75. (complete 40)
  76.  
  77. (if (= (exists "C:mbwatch" (noreq)) 0)
  78. (
  79.     (copyfiles
  80.         (source "mbwatch/mbwatch")
  81.         (dest   "C:")
  82.         (nogauge)
  83.     )
  84. ))
  85.  
  86. (:askdefault)
  87.  
  88. (if (= #default 0) (set #defaultstr "CanIt.config"))
  89. (if (= #default 1) (set #defaultstr "Algonet.config"))
  90. (if (= #default 2) (set #defaultstr "ABC.config"))
  91. (if (= #default 3) (set #defaultstr "Oden.config"))
  92. (if (= #default 4) (set #defaultstr "UU.config"))
  93. (if (= #default 5) (set #defaultstr "SLIPCall.config"))
  94.  
  95. (copyfiles
  96.     (source (cat "config/" #defaultstr))
  97.     (dest   "S:")
  98.     (newname "SLIPCall.config")
  99. )
  100.  
  101. (complete 80)
  102.  
  103. (if (=
  104.     (askbool
  105.         (prompt "Do you use Phonebill?")
  106.         (help   "If you answer 'Yes', installer will check if you have a"
  107.                 " scanner for SLIPCall installed. If not, one will be installed.")
  108.     )
  109.     1)
  110.     (
  111.         (set #scanner
  112.             (askfile
  113.                 (prompt "Choose the 'Scanner.config' used by Phonebill.")
  114.                 (help   @askfile-help)
  115.                 (default "SYS:")
  116.             )
  117.         )
  118.         (if (run (cat "search " #scanner " SLIPCall"))
  119.             ((textfile
  120.                 (dest "T:InstallerTemp")
  121.                 (include #scanner)
  122.                 (include "Extras/phonebill.scanner"))
  123.             (copyfiles
  124.                 (source "T:InstallerTemp")
  125.                 (dest   (pathonly #scanner))
  126.                 (newname "Scanner.config"))
  127.             (delete "T:InstallerTemp")))))
  128.  
  129. (set @default-dest #destination)
  130. (complete 100)
  131. (message "Installation of SLIPCall 3.0 is finnished!\n\n"
  132.          "You can find it in " #destination)
  133.  
  134. (exit (quiet))
  135.  
  136.